42
Is it possible to programmatically expand a folder (sample 1)


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Layout := "Expand0 = " + CHR(34) + "c:\" + CHR(34) + ";SelectMode0 = 0"
oDCOCX_Exontrol1:EndUpdate()

41
Can I limit the size of each cascade column, so the user can't resize them outside of the range I give

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:MinColumnWidth := 128
oDCOCX_Exontrol1:MaxColumnWidth := 256
oDCOCX_Exontrol1:EndUpdate()

40
How can I define the width of the cascade column


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1:DefColumnWidth := 256
oDCOCX_Exontrol1:EndUpdate()

39
The scroll bars are too large. Can I make them smaller


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:EndUpdate()

38
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[ScrollPartVisible,exVScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exHScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:[ScrollPartVisible,exScroll,exExtentThumbPart] := true
oDCOCX_Exontrol1:ScrollWidth := 4
oDCOCX_Exontrol1:[Background,exVSBack] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exVSThumb] := RGB(128,128,128)
oDCOCX_Exontrol1:ScrollHeight := 4
oDCOCX_Exontrol1:[Background,exHSBack] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:[Background,exHSThumb] := oDCOCX_Exontrol1:[Background,exVSThumb]
oDCOCX_Exontrol1:[Background,exScrollSizeGrip] := oDCOCX_Exontrol1:[Background,exVSBack]
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnsVisible := exFileColumnName
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:FitCascadeColumns := 3
oDCOCX_Exontrol1:EndUpdate()

37
How can I lock / freeze the control events
METHOD OCX_Exontrol1Event(EventID) CLASS MainDialog
	// Event event - Notifies the application once the control fires an event.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,-2]) ))
RETURN NIL


oDCOCX_Exontrol1:FreezeEvents(true)

36
How can I display the list mode in the first view, and thumbnail in the second view


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowOneSplitView
oDCOCX_Exontrol1:SplitViewHeight := "256"
oDCOCX_Exontrol1:Layout := "Select1=" + CHR(34) + "c:\" + CHR(34) + ";SelectMode1 = 2"
oDCOCX_Exontrol1:Layout := "Select0=" + CHR(34) + "c:\" + CHR(34) + ";SelectMode0 = 1"
oDCOCX_Exontrol1:EndUpdate()

35
How can I programmatically select a different folder in the second, or third view


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowOneSplitView
oDCOCX_Exontrol1:SplitViewHeight := "256"
oDCOCX_Exontrol1:Layout := "Select1=" + CHR(34) + "d:\" + CHR(34) + ""
oDCOCX_Exontrol1:Layout := "Select0=" + CHR(34) + "E:\" + CHR(34) + ""
oDCOCX_Exontrol1:EndUpdate()

34
How can I programmatically vertically-split the control


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:SplitViewHeight := "256,256"
oDCOCX_Exontrol1:EndUpdate()

33
How can I find if the control is running in DPI mode

OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`",nil,nil,nil)) ))

32
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"XP:TREEVIEW 2 1")
	var_Appearance:Add(2,"XP:TREEVIEW 2 2")
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:EndUpdate()

31
How can I change the visual appearance of the +/- buttons

local var_Appearance as IAppearance

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oDCOCX_Exontrol1:[Background,exTreeGlyphOpen] := 0x1000000
oDCOCX_Exontrol1:[Background,exTreeGlyphClose] := 0x2000000
oDCOCX_Exontrol1:EndUpdate()

30
How can I change the color for selected thumbnail


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeThumbnail
oDCOCX_Exontrol1:[Background,exThumbnailSelBorderColor] := RGB(255,0,0)
oDCOCX_Exontrol1:[Background,exThumbnailSelBorderColorHide] := RGB(128,0,0)
oDCOCX_Exontrol1:EndUpdate()

29
How can I change the thumbnail's frame color


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeThumbnail
oDCOCX_Exontrol1:[Background,exThumbnailBorderColor] := RGB(0,0,1)
oDCOCX_Exontrol1:EndUpdate()

28
Turn on the background-alternate colors, for Thumbnail view


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Select := "c:\"
oDCOCX_Exontrol1:SelectMode := exSelectModeThumbnail
oDCOCX_Exontrol1:[Background,exThumbnailBackColorAlt] := RGB(128,128,128)
oDCOCX_Exontrol1:EndUpdate()

27
Is there any option I can highlight the panel view that currently has the focus


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exFocusFrame] := RGB(128,128,128)
oDCOCX_Exontrol1:EndUpdate()

26
I disabled the split bars, the question is how can I change the visual appearance of them


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(128,128,128)
oDCOCX_Exontrol1:[Background,exDisableSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exCSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exHSplitBar] := oDCOCX_Exontrol1:[Background,exSplitBar]
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(2,0,0)
oDCOCX_Exontrol1:[Background,exDisableSplitBarSize] := oDCOCX_Exontrol1:[Background,exSplitBarSize]
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Mode := exAutoFitOnResizeClient | exDisableResizeCascadeColumns | exSplitFixCascadeMode
oDCOCX_Exontrol1:EndUpdate()

25
The control's split bar looks a bit larger, can I make it smaller


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI")
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exCSplitBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exHSplitBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exSplitBarSize] := RGB(3,0,0)
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:EndUpdate()

24
How can I change the status bar's visual appearance


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI")
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:[Background,exStatusBackColor] := 0x1404040
oDCOCX_Exontrol1:[Background,exStatusForeColor] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exStatusPanelBackColor] := 0x1808080
oDCOCX_Exontrol1:EndUpdate()

23
How can I change the status bar's visual appearance


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:[Background,exStatusBackColor] := RGB(40,40,40)
oDCOCX_Exontrol1:[Background,exStatusForeColor] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exStatusPanelBackColor] := RGB(128,128,128)
oDCOCX_Exontrol1:EndUpdate()

22
How can I change the visual appearance for all split-bars that the control displays


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI")
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exCSplitBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exHSplitBar] := 0x1000000
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:EndUpdate()

21
How can I change the visual appearance for all split-bars that the control displays


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSplitView := exAllowTwoSplitView
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exCSplitBar] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exHSplitBar] := RGB(0,0,1)
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:EndUpdate()

20
How can I change the tooltip's visual appearance

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.",nil,nil,nil,nil)
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVAcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuTBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhuC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4ElmaQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlEQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIoiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCWBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
oDCOCX_Exontrol1:EndUpdate()

19
How can I change the tooltip's visual appearance

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.",nil,nil,nil,nil)
RETURN NIL


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exToolTipBackColor] := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exToolTipForeColor] := RGB(255,255,0)
oDCOCX_Exontrol1:EndUpdate()

18
How can I change the visual appearance of the control's split bar


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVAcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuTBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhuC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4ElmaQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlEQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIoiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCWBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==")
oDCOCX_Exontrol1:[Background,exSplitBar] := 0x1000000
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1:EndUpdate()

17
How can I change the visual appearance of the control's split bar


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[Background,exSplitBar] := RGB(240,240,240)
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:Mode := exFixCascadeMode
oDCOCX_Exontrol1:EndUpdate()

16
How can I load images into the control


oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<img>pic1</img> This is picture into the control's status bar"

15
Is it possible to show my tooltip

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.",nil,nil,nil,nil)
RETURN NIL



14
Is it possible to change the tooltip's font

local f as stdFont

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
f := stdFont{"StdFont"}
	f:Name := "Tahoma"
	f:Size := 12
oDCOCX_Exontrol1:ToolTipFont := f

13
Is it possible to change the tooltip's width


oDCOCX_Exontrol1:ToolTipWidth := 64

12
How can I disable the control

oDCOCX_Exontrol1:Enabled := false

11
How can I force refreshing the control

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Refresh()
oDCOCX_Exontrol1:EndUpdate()

10
How can I prevent showing any tooltip

oDCOCX_Exontrol1:ToolTipDelay := 0
oDCOCX_Exontrol1:ToolTipPopDelay := 0

9
How can I make the control's tooltip to be shown for a longer time


oDCOCX_Exontrol1:ToolTipPopDelay := 10000

8
How can I make the control's tooltip to be shown faster


oDCOCX_Exontrol1:ToolTipDelay := 1

7
How can I get the control's handle

OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:hWnd) ))

6
How can I clears the images into the control


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<img>1</img> This is an icon into the control's status bar"
oDCOCX_Exontrol1:ReplaceIcon(0,-1)

5
How can I load images into the control


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:StatusBarVisible := exStatusBarAnchorTop
oDCOCX_Exontrol1:StatusBarLabel := "<img>1</img> This is an icon into the control's status bar"

4
How do I get the version of the control I am running

OutputDebugString(String2Psz( oDCOCX_Exontrol1:Version ))

3
The control's foreground is changed if I open multiple views. What can be the problem


oDCOCX_Exontrol1:ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:ForeColorAlternate := oDCOCX_Exontrol1:ForeColor

2
The control's background is changed if I open multiple views. What can be the problem


oDCOCX_Exontrol1:BackColor := RGB(255,255,0)
oDCOCX_Exontrol1:BackColorAlternate := oDCOCX_Exontrol1:BackColor

1
How do I change the control's background color


oDCOCX_Exontrol1:BackColor := RGB(240,240,240)
oDCOCX_Exontrol1:BackColorAlternate := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:HeaderVisible := false